home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #6
/
Commodore_Disk_User_Vol.3_6_1990_-.d64
/
border sprites
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
829b
|
22 lines
5 poke53280,14:poke53281,6:poke646,14
10 rem *****************************
20 rem *** routine two ***
30 rem *****************************
40 rem *** there has been others ***
50 rem *** but this was the first***
60 rem *** ''sprites in border'' ***
70 rem *** listing! ***
80 rem *****************************
90 rem *** david dewar ***
100 rem *****************************
110 for t=49152 to 49220:read a:poke t,a:next t
120 poke 16383,0
140 data 120,169,31,141,20,3,169,192,141,21,3,169,129,141,26,208,169,127,141,13
150 data 220,88,173,17,208,9,16,141,17,208,96,173,18,208,201,250,240,13,169,27
160 data 141,17,208,169,250,141,18,208,76,61,192,169,19,141,17,208,169,51,141
170 data 18,208,169,1,141,25,208,76,49,234
180 print"[147]sprites in the border!!!"
190 rem **** example ****
200 v=53248:poke v+0,150:poke v+1,20:poke v+21,1
210 sys 49152